PC Plus SuperCD (UK) 1997 May/PC Plus Super CD Issue 127 (May 1997).iso/delphi1/lessons.exe/lesson4/TAPECALC/CALC4.DFM/CALC4.txt

Text File | 1996-02-27 | 3.7 KB | 212 lines

object CalcForm: TCalcForm
  Left = 234
  Top = 93
  Width = 542
  Height = 347
  Caption = 'PC Plus Tape Calculator'
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Menu = MainMenu1
  PixelsPerInch = 96
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnKeyUp = FormKeyUp
  TextHeight = 16
  object DisplayEd: TEdit
    Left = 219
    Top = 8
    Width = 198
    Height = 25
    ReadOnly = True
    TabOrder = 0
  end
  object Btn8: TButton
    Left = 8
    Top = 9
    Width = 60
    Height = 33
    Caption = '8'
    TabOrder = 1
    OnClick = Btn8Click
  end
  object Btn6: TButton
    Left = 8
    Top = 49
    Width = 60
    Height = 33
    Caption = '6'
    TabOrder = 2
    OnClick = Btn6Click
  end
  object Btn4: TButton
    Left = 8
    Top = 89
    Width = 60
    Height = 33
    Caption = '4'
    TabOrder = 3
    OnClick = Btn4Click
  end
  object Btn2: TButton
    Left = 8
    Top = 129
    Width = 60
    Height = 33
    Caption = '2'
    TabOrder = 4
    OnClick = Btn2Click
  end
  object Btn0: TButton
    Left = 8
    Top = 169
    Width = 60
    Height = 33
    Caption = '0'
    TabOrder = 5
    OnClick = Btn0Click
  end
  object Btn9: TButton
    Left = 80
    Top = 9
    Width = 60
    Height = 33
    Caption = '9'
    TabOrder = 6
    OnClick = Btn9Click
  end
  object Btn7: TButton
    Left = 80
    Top = 49
    Width = 60
    Height = 33
    Caption = '7'
    TabOrder = 7
    OnClick = Btn7Click
  end
  object Btn5: TButton
    Left = 80
    Top = 89
    Width = 60
    Height = 33
    Caption = '5'
    TabOrder = 8
    OnClick = Btn5Click
  end
  object Btn3: TButton
    Left = 80
    Top = 129
    Width = 60
    Height = 33
    Caption = '3'
    TabOrder = 9
    OnClick = Btn3Click
  end
  object Btn1: TButton
    Left = 80
    Top = 169
    Width = 60
    Height = 33
    Caption = '1'
    TabOrder = 10
    OnClick = Btn1Click
  end
  object BtnEquals: TButton
    Left = 80
    Top = 208
    Width = 129
    Height = 33
    Caption = '='
    Font.Color = clRed
    Font.Height = -19
    Font.Name = 'Terminal'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = False
    TabOrder = 11
    OnClick = BtnEqualsClick
  end
  object BtnDiv: TButton
    Left = 152
    Top = 8
    Width = 57
    Height = 33
    Caption = '/'
    TabOrder = 12
    OnClick = BtnDivClick
  end
  object BtnMult: TButton
    Left = 152
    Top = 48
    Width = 57
    Height = 33
    Caption = '*'
    TabOrder = 13
    OnClick = BtnMultClick
  end
  object BtnMinus: TButton
    Left = 152
    Top = 88
    Width = 57
    Height = 33
    Caption = '-'
    TabOrder = 14
    OnClick = BtnMinusClick
  end
  object BtnPlus: TButton
    Left = 152
    Top = 128
    Width = 57
    Height = 33
    Caption = '+'
    TabOrder = 15
    OnClick = BtnPlusClick
  end
  object BtnDot: TButton
    Left = 149
    Top = 169
    Width = 60
    Height = 33
    Caption = '.'
    TabOrder = 16
    OnClick = BtnDotClick
  end
  object ClearBtn: TButton
    Left = 8
    Top = 208
    Width = 65
    Height = 33
    Caption = '&Clear'
    TabOrder = 17
    OnClick = ClearBtnClick
  end
  object CalcList: TListBox
    Left = 218
    Top = 38
    Width = 199
    Height = 194
    ItemHeight = 16
    TabOrder = 18
  end
  object MainMenu1: TMainMenu
    Left = 48
    Top = 264
    object FileMenu: TMenuItem
      Caption = '&File'
      object ClearMenuItem: TMenuItem
        Caption = '&Clear'
        OnClick = ClearMenuItemClick
      end
      object SaveMenuItem: TMenuItem
        Caption = '&Save'
        OnClick = SaveMenuItemClick
      end
    end
  end
end